home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00741_Script_741 < prev    next >
Text File  |  1994-08-29  |  870b  |  29 lines
  1. on goIndexEntry
  2.   global CDroot, DL, firstColDex, indexList, leftCol, padHilite, ¼
  3.          reference, rightCol, topLeftLite, topRightLite
  4.   
  5.   set refEra   = (item 1 of line reference of indexList)
  6.   set refPlane = (item 2 of line reference of indexList) & "stor"
  7.   set refMovie = refEra &DL& refPlane
  8.   set refFrame = (item 3 of line reference of indexList) + 1
  9.   -- the "plus 1" compensates for the difference between a story's page
  10.   -- number and its frame number
  11.   
  12.   if refEra <> "EMPTY" then
  13.     
  14.     if the clickOn = leftCol then
  15.       set firstLite = topLeftLite
  16.     else
  17.       set firstLite = topRightLite
  18.     end if
  19.     
  20.     lightPadLine( firstColDex, indexList, firstLite )
  21.     set the forecolor of sprite padHilite = 88
  22.     updateStage
  23.     
  24.     go to frame refFrame of movie CDroot & refMovie
  25.     
  26.   end if
  27.   
  28. end goIndexEntry
  29.